## Figure 3

require(foreign)

hou.data <- read.dta("h107.dta")
sen.data <- read.dta("s107.dta")

windows(width=8.5,height=5) 
par(mfrow=c(1,2))
par(mgp=c(1.5, .5, 0))
par(mar=c(2.75,2.5, 1.5, .5))

plot(density(hou.data$peaced),xlim=c(-2.25,2.25),ylim=c(0,.65),cex.lab=0.8,cex.axis=0.8,cex.main=1,lty=2,lwd=1,xlab="Ideal Points",ylab="Density",main="House")
lines(density((hou.data$ward)),lwd=1)

plot(density(sen.data$peaced),xlim=c(-2.25,2.25),ylim=c(0,.65),cex.lab=0.8,cex.axis=0.8,cex.main=1,lty=2,lwd=1,xlab="Ideal Points",ylab="Density",main="Senate")
lines(density((sen.data$ward)),lwd=1)
